home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue52 / HTML / Code / AppServer / dpoEmployee.dfm / dpoEmployee.txt
Encoding:
Text File  |  1999-10-10  |  303 b   |  15 lines
  1. inherited Employee: TEmployee
  2.   OldCreateOrder = True
  3.   inherited qryMain: TQuery
  4.     SQL.Strings = (
  5.       'SELECT * FROM Employee WHERE EmpNo = :EmpNo')
  6.     ParamData = <
  7.       item
  8.         DataType = ftInteger
  9.         Name = 'EmpNo'
  10.         ParamType = ptInput
  11.         Value = 0
  12.       end>
  13.   end
  14. end
  15.